home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / assemblr / library / usoftlib / famain.for < prev    next >
Text File  |  1987-07-30  |  190b  |  12 lines
  1.  
  2.     INTERFACE TO INTEGER*2 FUNCTION POWER2(A,B)
  3.     INTEGER*2 A,B
  4.     END
  5. C
  6.     INTEGER*2 POWER2
  7.     INTEGER*2 A,B
  8.     A = 3
  9.     B = 5
  10.     WRITE (*,*) '3 times 2 to the power of 5 is ',POWER2(A,B)
  11.     END
  12.